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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


Get the next Line in a range. 


ENVIRONMENT: Runs at any access mode - AST reentrant 


THOR: Bob Kushlis, CREATION DATE: February 3, 1978 
DIFIED BY: 


1-001 - Original. 19-FEB-1981. This module was created by 


extracti ing vou ne EDTSSNXT_LNRNG from module RANGE. 
003 - Use the ASSERT macro. 18S" 01-Jun-1981 
004 - If this is on ALL range, it must have a search string. 
JBS 31-Oct-19 


ify the next Fange find for AND ranges. SMB 15- Feb-1982 
ype ..7.7 now works at re, E TMV 18-FEB-1982 
Repularize format. JBS Mey 62 
Remove EDTS$SA_STR_CMP. OBS =-Jul-1982 
Put calls to édt$$rn gnxtln in, ne. 518, 17-Sep-1982 
Put edt$$tst_eob in ine STS 22-Sep-19 
Remove reference to edt$$rng_posfrst. 13 11- 958" -1982 
Modify to use new cmopare macro. STS 20-0ct-1 
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se the new PREV_RANGE field to find the ALL string. JBS_ 02-Nov-1981 
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ZTITLE ‘EDTSRANNEXT = next Line in a range’ 
MODULE EDTSRANNEXT ( ' Next ting in a ran 
{DENT = 'v04-000' ! File: RANN XT. BLI Edit: J8S1014 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 
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REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSNXT_LNRNG; 


} INCLUDE FILES: 


WAMU 
3 t 3 OOO: 


REQUIRE ‘EDTSRC:EDTREQ'; 
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16209096968 NINN NINN 
PAPAIN 
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NONE 
! OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 
In the routine 
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ZSBTTL "EDTSSNXT_LNRNG = next Line in a range’ 


GLOBAL ROUTINE EDTSSNXT_LNRNG ( ! Get the next Line in a range 
DELETED ! 1 = last Line was deleted 
= 


aon 
= 
oa 
st 


'e4¢ 


| FUNCTIONAL DESCRIPTION: 

i This routine returns the next Line in a range. The position 

routine must have been called first if this routine is to 
work properly. 

i FORMAL PARAMETERS: 

DELETED Indicate whether the Last line was deleted. 

i IMPLICIT INPUTS: 


EDT$$2 “NG ans 


i IMPLICIT outputs: 
EDT$$G_RNG_FRSTLN 
| 
| 
| 
| 
| 
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i ROUTINE VALUE: 
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98 0= ry more Lines exist in this range 
5344 1 = A Line was sucessfully located 
Oro} . 
rs ! SIDE EFFECTS: 
, 3 The current text buffer is re-positioned. 
7 _ 
70% BEGIN 
109 
71 sig oy ROUTINE 
71 EDTSSRNG_REPOS, 
ne EDT$$RD_AXTLN, 
at EDISSsTR. CMP; ! Compare two strings of equal Length 
715 EXTER si) 
ay EDT $2 -RNG_  agey REF _— BLOCK, ' The current range node 
71 ep Test R GEOL : LN_BLOCK ! The Line number at which this range ends 
rg EDTS$$G_ RNG aay 
71 EDT S36 _R ' Used by EDTSSNAT sy NANG indicate more Lines. 
0730 EDTS$G_ “ANGE “HOD ' Count of number o a, nN a range. 
721 EDT$$G_SEA_S oF LN ! Length of search string. 
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SNXT_LNRNG = next Line in a range 


DT$$Z7_E0B LN, 
DTSSA_WK tN : REF LIN_BLOCK, ' 
EDTS$G_EXCT_MATCH; ' 


LABEL 
LOOP; 


e current Line pointer. 
e type of string matching 


—— 
sz 


LOCAL 
DEL_FLAG; 


4 
' Get a local copy of the delete flag, since if this is an ALL range. 
! we will loop, and the delete flag will be turned off after the first 
; time though. 


DEL_FLAG = .DELETED; 


i Loop until we find a Line which contains the ALL string. If no all 
string, we will get out the first time through. 


: 

5 

5 

§ LOOP EGIN 
flees 8 
8 

; 

5 

8 
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be 
! If we are at the end of the buffer, or the EDTS$G_RNG_MORELN flag is zero, 
then there are no more Lines. Exit with a 0. 


IF (.EDTS$G_RNG_MORELN EQL 0) THEN RETURN (0); 


'¢ 
Case on the range type. 


CASE .EDTS$Z_RNG_CURRNG CRAN_TYPE] FROM RAN_NULL TO NUM_RAN OF 


1+ 

! For all the single Line ranges. if EDTS$G_RNG_FRSTLN is on, then return 
' success and turn it off. If it is not then check to see i 

} wee ‘t of an AND List; if so, position to the next Line in 

! the list. 

le 


CRAN_NUMBER, RAN_DOT, RAN_STR, RAN_BEGIN, RAN_LAST, RAN_END, RAN_MINUS, RAN_PLUS, RAN_NULL, 
RAN INSTR, RAN_ORIG]~: 


me ea a ed ed do wd dt 2d 
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IF .EDT$S$G_RNG_FRSTLN 
gp EDTSSG-RNG_FRSTLN = 0 


IF (.EDT$$Z_RNG_CURRNG CNEXT_RANGE) EQL 0) 
RETURN (0) 


Be Se Be Se Se Se Se Be Be Se we BH FF Ss Se Se Ge Fe Se Se FH Fe Se Ge Se Se Fe Ge Ss Se FH He Ge Se Ge Ge Se Ge Se FH Se Se Se Se Se Se Se Se Se Se Se Se Se oe Ge SH ee 


ee eee tt tt tt ot 


ne ee eee area —- —— 9 a 


EDTSRANNEXT 
vO0=000 


d 8 
RANNEXT = next Line in a range 16-Sep-1984 01:25:17 VA 
SNXT_LNRNG = next Line in a range 14 set 7 Pe ae I 


ELSE 
IF EDTSSRNG_REPOS (.EDTS$$Z_RNG_CURRNG CNEXT_RANGE]) 
EDTS$G_RNG_FRSTLN = 0 
RETURN (0); 
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END; 
‘4 
For WHOLE or REST, just move to the next Line. 


CRAN WHOLE, RAN_REST] : 
BEGIN 
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9 IF (.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) THEN RETURN (0); 
9 IF ( NOT .DEL_FLAG) 
8 THEN 
IF ( NOT .EDTSSG_RNG_FRSTLN) THEN EDTSSRD_NXTLN () ELSE EDTSS$G_RNG_FRSTLN = 0; 
8 re END; 
08 i For FOR and SELECT, the range block contains the number of Lines 
+H Bape } to include. Count it down, returning failure if it becomes negative. 
$ O80? ; 
8 0808 CRAN_FOR, RAN_SELECT] : 
39 0809 BEGIN 
sey 0810 
:] oat IF (.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) THEN RETURN (0); 
308 a318 EDTS$Z_RNG_CURRNG CRAN_VAL] = .EDTS$Z_RNG_CURRNG CRAN_VAL] - 1; 
45 0815 IF (.EDT$$Z_RNG_CURRNG CRAN_VAL] LSS 0) 
46 Bag THEN 
47 bat RETURN (0) 
48 818 LSE 
49 0819 
50 0820 IF ( NOT .DEL_FLAG) 
51 08 THEN 
a i IF ( NOT .EDTS$G_RNG_FRSTLN) THEN EDTSSRD_NXTLN () ELSE EDTSS$G_RNG_FRSTLN = 0; 


'¢ 
! The THRU and BEFORE ranges have saved away the last Line to be 
! included. Move to the next Line in the range, then compare it 
!' to the last Line number. If it is greater, return failure. 


CRAN_THRU, RAN_BEFORE) : 
BEGIN 


4 
4 
4 
4 
4 
; 
: 
5 
4 
4 
4 
4 
4 
4 
: 
6 
é 
é 
4 
4 
é 
4 
4 
4 
4 
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IF (.EDTS$A_WK_LN EQLA EDT$$Z_EOB_LN) THEN RETURN (0); 
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IF_( NOT .DEL_FLAG) 
THEN 


; 5 : 
; : 
; 19 40 IF ( NOT .EDTS$G_RNG_FRSTLN) THEN EDTSSRD_NXTLN () ELSE EDT$S$G_RNG_FRSTLN = 0; | 3 
; t 4¢ IF (CMPLNO (EDTSS$A_WK_LN CLIN_NUM], EDTSSL_RNG_EOL) GTR 0) THEN RETURN (0); | ; 
7: sf as : 
: eo ug 4 CINRANGE) : ; 
; Ag tb | ; ! some ranges (such as ALL) can never get here. : 
: 279 49 4 COUTRANGE) : 3 
: 280 50 4 ASSERT (0); : 
; 281 851 4 TES; 3 
aR Bef, : 
> 284 0854 4 ! If there was an ALL, insure that the string exists in the Line. : 
; 285 0855 4 ! If it does not, continue through the loop again looking either : 
; My] bees 2 : for one that does contain the string or the end of the range. : 
; 288 0898 3 BEGIN : 
: $90 0860 BIND 
; 4 O86) 3 ALL_RAN = .EDTS$Z_RNG_CURRNG CPREV_RANGE) : NODE_BLOCK; ; 
; 38 op68 3 LOCAL ; 
: oe bees : CH_POINT; : 
; 96 0866 3 IF (ALL_RAN EQLA 0) THEN LEAVE LOOP; | : 
: 338 +443 5 IF (CALL RAN NEQA 0) AND (.EDTSSA_WK_LN EQLA EDT$$Z_E0B_LN)) THEN RETURN (0); ; 
; 4 0870 ; IF (.ALL_RAN CRAN_TYPE] NEQ RAN_ALL) THEN LEAVE LOOP; ; 
: 30 87 + : 
3 08 O88 ; } An ALL range must have a string. : 
: 305 oars 8 ASSERT (.ALL_RAN CSTR PNT] NEQA 0); ; 
; 06 0876 5 CH_POINT = CASPTR (EDTS$$SA_WK_LN CLIN_TEXT); : 
; 08 0878 3 DECR I FROM .EDT$SA_WK_LN CLIN_LENGTH) - .EDT$$G_SEA_STRLEN TO 0 DO : 
; 10 O80 3 IF EDTSSSTR_CMP (.CH_POINT, .ALL_RAN CSTR_PNTJ, .ALL_RAN CRAN_VALJ, .EDTS$$G_EXCT_MATCH) : 
; \¢ Bs LEAVE LOOP ! This Line has the string F 
: 14 4 CH_POINT = CHSPLUS (.CH_POINT, 1); ! Keep looking : 
; 16 DEL_FLAG = 0; F 
ye END; 3 
3 3 END; : 
; 0 END; : 
3 1 91 '¢ : 
: 2 92 ' Count one more Line found in the range. | 3 
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PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 340 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


penecy Used: 151 pages 
Compit ation Complete 
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